home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 May / pcwk_05_99B.iso / Demo Software / Painter Classic / data1.cab / Common / PClassic.rsr / STR#_5.txt < prev    next >
Encoding:
Text File  |  1998-03-26  |  3.1 KB  |  303 lines
  1. newpath %f %f moveto %f %f lineto stroke
  2.  
  3.  
  4. newpath %f %f %f 0 360 arc closepath fill
  5.  
  6.  
  7. /bwx %f def
  8.  
  9.  
  10. /bhx %f def
  11.  
  12.  
  13. /dobox {bwx 0 rlineto 0 bhx neg rlineto
  14.  
  15.  
  16. bwx neg 0 rlineto closepath fill} def
  17.  
  18.  
  19. %f setgray newpath %f %f moveto dobox
  20.  
  21.  
  22. 0.5 setlinewidth
  23.  
  24.  
  25. 0 setgray 
  26.  
  27. 1 setgray 
  28.  
  29. 40 dict begin gsave
  30.  
  31.  
  32. /width %d def /height %d def /fact %f def
  33.  
  34.  
  35. /picstr width string def
  36.  
  37.  
  38. /dopic {
  39.  
  40.  
  41. {} {} {} {} setcolortransfer
  42.  
  43.  
  44. {} settransfer
  45.  
  46.  
  47. width height 8 [width 0 0 height neg 0 height]
  48.  
  49.  
  50. {currentfile picstr readstring pop} false 4 colorimage
  51.  
  52.  
  53. {currentfile picstr readstring pop} image
  54.  
  55.  
  56. } def
  57.  
  58.  
  59. gsave %d %d translate width fact mul height fact mul scale
  60.  
  61.  
  62. dopic
  63.  
  64.  
  65. gsave 1 -1 scale 0 %d neg translate %f %f translate fact fact scale
  66.  
  67.  
  68. grestore
  69.  
  70.  
  71. gsave
  72.  
  73.  
  74. /width %d def
  75.  
  76.  
  77. /height %d def
  78.  
  79.  
  80. /pixwidth %d def
  81.  
  82.  
  83. /pixheight %d def
  84.  
  85.  
  86. /picstr %d string def
  87.  
  88.  
  89. {} {} {} {} setcolortransfer
  90.  
  91.  
  92. 0 %d translate 1 -1 scale %f %f scale %d %d translate
  93.  
  94.  
  95. %d %d translate %f %f scale 1 -1 scale 0 %d translate
  96.  
  97.  
  98. /dopic
  99. {  width height 8
  100.   [width 0 0 height neg 0 height]
  101.  
  102.  
  103. %f %f /sproc%c load %f %f /sproc%c load
  104.  
  105.  
  106. %f %f /sproc%c load %f %f /sproc load setcolorscreen
  107.  
  108.  
  109. %f %f /sproc%c load setscreen
  110.  
  111.  
  112. %f setgray newpath %f %f moveto lbox
  113.  
  114.  
  115. 1 fact div 1 fact div scale %f neg %f neg translate 0 %d translate 1 -1 scale
  116.  
  117.  
  118. /sproc%c {
  119.  
  120. } def
  121.  
  122.  
  123. /picstr width %d mul string def
  124.  
  125.  
  126. /lbox { bwx 6 mul 0 rlineto 0 bhx neg rlineto
  127.  
  128.  
  129.   bwx 6 mul neg 0 rlineto closepath fill } def
  130.  
  131.  
  132. 0 setgray newpath %f %f moveto lbox
  133.  
  134.  
  135. % see the C code for font scaling
  136.  
  137. 1 setgray %f %f moveto
  138.  
  139.  
  140. (C) show
  141.  
  142.  
  143. (M) show
  144.  
  145.  
  146. (Y) show
  147.  
  148.  
  149. (K) show
  150.  
  151.  
  152. cyan
  153.  
  154. magenta
  155.  
  156. yellow
  157.  
  158. black
  159.  
  160. 0 setgray %f %f moveto (C50 M50 Y50) show
  161.  
  162.  
  163. 1 setgray %f %f moveto (C50 M50 Y60) show
  164.  
  165.  
  166. 0 setgray %f %f moveto (C45 M55 Y65) show
  167.  
  168.  
  169. 1 setgray %f %f moveto (K50) show
  170.  
  171.  
  172. 0 setgray %f %f moveto
  173.  
  174.  
  175. PM
  176.  
  177. AM
  178.  
  179. (Painter file: %s: %s %s: %s plate) show
  180.  
  181.  
  182. gsave 0 %d translate 1 -1 scale
  183.  
  184.  
  185.   {currentfile picstr readhexstring pop} image
  186.  
  187.  
  188.   {currentfile picstr readhexstring pop} false 4 colorimage
  189.  
  190.  
  191.   {currentfile picstr readhexstring pop} false 3 colorimage
  192.  
  193.  
  194.   {currentfile picstr readstring pop} false 3 colorimage
  195.  
  196.  
  197. pixwidth pixheight scale
  198.  
  199.  
  200. 0 %d translate 1 -1 scale %f %f scale %d %d translate
  201.  
  202.  
  203. grestore end
  204.  
  205.  
  206. %!PS-Adobe-3.0 EPSF-3.0
  207.  
  208.  
  209. %%Creator: Painter Version 4.0.1
  210.  
  211.  
  212. %%%%Title: %s
  213.  
  214.  
  215. %%%%CreationDate: %s %s
  216.  
  217.  
  218. %%%%BoundingBox: 0 0 %d %d
  219.  
  220.  
  221. %%SuppressDotGainCompensation
  222.  
  223.  
  224. %%DocumentProcessColors: Cyan Magenta Yellow Black
  225.  
  226.  
  227. %%DocumentProcessColors: Cyan
  228.  
  229.  
  230. %%DocumentProcessColors: Magenta
  231.  
  232.  
  233. %%DocumentProcessColors: Yellow
  234.  
  235.  
  236. %%DocumentProcessColors: Black
  237.  
  238.  
  239. %%%%CyanPlate:%s
  240.  
  241.  
  242. %%%%MagentaPlate:%s
  243.  
  244.  
  245. %%%%YellowPlate:%s
  246.  
  247.  
  248. %%%%BlackPlate:%s
  249.  
  250.  
  251. %%EndComments
  252.  
  253.  
  254. save
  255. restore
  256.  
  257.  
  258. dopic
  259.  
  260.  
  261. %%Extensions: CMYK
  262.  
  263.  
  264. %%DocumentData: Clean8Bit
  265.  
  266.  
  267. %%DocumentData: Binary
  268.  
  269.  
  270. %%Creator: Painter Version 5.0
  271.  
  272.  
  273. %%%%PlateFile: (Cyan) EPSF Local %s
  274.  
  275.  
  276. %%%%PlateFile: (Magenta) EPSF Local %s
  277.  
  278.  
  279. %%%%PlateFile: (Yellow) EPSF Local %s
  280.  
  281.  
  282. %%%%PlateFile: (Black) EPSF Local %s
  283.  
  284.  
  285. %%%%PlateFile: (Channel.5) EPSF Local %s
  286.  
  287.  
  288. %%%%PlateFile: (Channel.6) EPSF Local %s
  289.  
  290.  
  291. %%DocumentCustomColors: (Channel.5)
  292.  
  293.  
  294. %%+ (Channel.6)
  295.  
  296.  
  297. %%CMYKCustomColor: 0.000 0.000 0.000 0.000 (Channel.5)
  298.  
  299.  
  300. %%+ 0.000 0.000 0.000 0.000 (Channel.6)
  301.  
  302.  
  303.